home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
C64Telecom
/
PCGTERMHAYES.ARC
/
PCG PHONE ED V.5
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
2KB
|
93 lines
10 REM
15 POKE53281,.:POKE53280,.:OPEN15,8,15,"I":L=214:BLANK$="[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]"
20 REM ****************************
25 :
30 PRINT"[147][153]>> [208]HONE [198]ILE [197]DITOR [214].5 BY EGBELL <<<"
35 PRINT"[1] [215]RITE [198]ILE":PRINT"[2] [197]DIT":PRINT"[3] [195]REATE"
40 PRINT"[211]ELECT: ";
45 GOSUB305:IFA$=CHR$(13)THENPRINT:PRINT:END
50 IFA<1ORA>3THENPRINT"[164][157]";:GOTO45
55 ONAGOSUB215,180,380
60 :
65 ONAGOTO30
70 :
75 Y=8:Z=12:GOSUB430
76 IFA=2THENPOKEL,2:PRINT:PRINTTAB(9)"[150]"FI$" "
80 POKEL,5:PRINT:PRINT">> [208]RESS [210]ETURN [212]O [197]XIT <<"
85 POKEL,7:PRINT:PRINT"[197]DIT [215]HICH [210]ECORD [150][1-8] ?[157]";:GOSUB315
90 IF A=.THENY=6:Z=24:GOSUB430:GOTO30
95 BA=55816+(40*A):FORX=0TO38:POKEBA+X,13:NEXT:POKE781,6:SYS59903
100 IFA>8GOTO85
105 POKEL,7:PRINT:PRINTTAB(24)PH$(A):INPUT"[214]ERIFY Y[157][157][157]";C$
110 IFC$<>"Y"THENGOSUB400:GOTO75
115 Y=8:Z=11:GOSUB430
120 HO$=PH$(A):PH$(A)="":POKEL,7:PRINT:INPUT"[197]NTER [212]ELEPHONE [206]UMBER [157]";PH$(A)
125 PH$(A)=LEFT$(PH$(A),18)
130 IFPH$(A)=""THENPH$(A)=BLANK$:CM$(A)=BLANK$:GOSUB400:GOTO75
135 INPUT"[214]ERIFY Y[157][157][157]";C$:IFC$<>"Y"THENPH$(A)=HO$:GOSUB395:GOTO75
140 PRINT"[145][195]OMMENT [16 CHARS [205]AX][150][153]"
145 INPUTCM$(A):CM$=LEFT$(CM$,16)
150 PRINTTAB(20)"[145]";:INPUT"[214]ERIFY Y[157][157][157]";C$:IFC$="Y"THENGOSUB395:GOTO75
155 PH$(A)=HO$:Y=8:Z=12:GOSUB430:POKEL,12:PRINT:GOTO120
160 :
165 REM ****************************
170 :
175 IFFI$=""THENRETURN
180 GOSUB335:IF FI$="?"THENRETURN
185 OPEN7,8,7,FI$:GOSUB285:IFE>.THENCLOSE7:RETURN
190 FORX=1TO8:INPUT#7,PH$(X),CM$(X)
195 NEXT:CLOSE7:GOTO395
200 :
205 REM ****************************
210 :
215 GOSUB450:IFY=.THENRETURN
220 GOSUB395:GOSUB335:IFFI$="?"THENRETURN
225 OPEN7,8,7,FI$+",S,W":GOSUB285:IFE=.GOTO250
230 CLOSE7:IFE<>63THENRETURN
235 PRINT:INPUT"[210]EPLACE [207]LD [198]ILE N[157][157][157]";C$
240 IFC$<>"Y"THENY=6:Z=24:GOSUB430:GOTO220
245 POKEL,9:PRINT:PRINT"[211]CRATCHING...":PRINT#15,"S0:"FI$:PRINT#15,"I":GOTO225
250 POKEL,9:PRINT:PRINT"[153][215]RITING [198]ILE...
255 [129]X[178]1[164]8:[139]PH$(X)[178]""[167]PH$(X)[178]"CLOSECLOSECLOSECLOSECLOSECLOSECLOSE":CM$(X)[178]"CLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSECLOSE"
260 [152]7,PH$(X):[152]7,CM$(X)
265 [130]:[129]X[178]1[164]8:[152]7,"*":[130]:[160]7:[142]
270 :
275 [143] ****************************
280 :
285 [132]15,E,EM$,TK$,SC$:[139]E[178].[167] [142]
290 E$[178][202]([196](E),2):C$[178]", ":[151]L,5
295 [153]:[153]"FOR>> "E$C$EM$C$TK$C$SC$" <<":[137]460
300 :
305 [143] ****************************
310 :
315 [151]198,.:[146]198,1:[161]A$:[153]A$"CMD";:A[178][197](A$):[142]
320 :
325 [143] ****************************
330 :
335 [151]L,5
340 [153]:FI$[178]"":[153]"VALNTER ASCILE (null)AME :PH.STOP?CMDLIST";
345 [159]50,.
350 [132]50,FI$:[160]50:[139]FI$[178]"?"[167][142]
355 [139][201](FI$,1)[178]"*"[137]370
360 FI$[178][200]("PH."[170]FI$,16)
365 :
370 Y[178]6:Z[178]8:[137]430
375 :
380 [129]X[178]1[164]8:PH$(X)[178]BL$:CM$(X)[178]BL$:[130]
385 [143] ****************************
390 :
395 Y[178]13:Z[178]24:[141]430
400 [151]L,13:[153]:[129]X[178]1[164]8
405 [153]"[";[202]([196](X),2)"]"[163]4)PH$(X);
410 [153]""[163]23)[200](CM$(X)[170]" ",16):[130]:[142]
415 :
420 [143] ****************************
425 :
430 [129]X[178]Y[164]Z:[151]781,X:[158]59903:[151]217[170]X,[194](217[170]X)[176]128:[130]:[142]
435 :
440 [143] ****************************
445 :
450 Y[178].:[129]X[178]1[164]8:Y[178]Y[171](PH$(X)[177]""):[130]:[139]Y[177].[167][142]
455 [153]:[153]"ONFOR>>> (null)O ASCILES (null)O (null)RITE... <<<
460 FORX=1TO2500:NEXT:RETURN